home *** CD-ROM | disk | FTP | other *** search
- %%DSIDICT:_cv
- currentdict /bu known {bu}if
- userdict /_cv known not{userdict /_cv 30 dict put}if
- _cv begin
- /bdf{bind def}bind def
- currentscreen/cs exch def/ca exch def/cf exch def
- /setcmykcolor where{/setcmykcolor get /cvcmyk exch def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf }ifelse
- /ss{//cf //ca //cs setscreen}bdf
- /stg{ss setgray}bdf
- /strgb{ss setrgbcolor}bdf
- /stcmyk{ss cvcmyk}bdf
- /min1{dup 0 eq{pop 1}if}bdf
- end
- currentdict /bn known {bn}if
-